unit uFrmPrincipal;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  DbCtrls, uClassePesquisaAux, BufDataset;

type

  { TFrmPrincipal }

  TFrmPrincipal = class(TForm)
    Button1: TButton;
    DBComboBox1: TDBComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FrmPrincipal: TFrmPrincipal;
  tt : TCamposPesquisa;

implementation

uses ufrmcadfuncionario, uDM1, uFrmPesquisaPadrao;

{$R *.lfm}

{ TFrmPrincipal }

procedure TFrmPrincipal.Button1Click(Sender: TObject);
begin
  //tt := TCamposPesquisa.Create;
  //tt.
  //DM1.SQLQFuncionario.FieldDefs[0].di;
  {Application.CreateForm(TFrmCadFuncionario,FrmCadFuncionario);
  FrmCadFuncionario.ShowModal;
  FreeAndNil(FrmCadFuncionario);}
  Application.CreateForm(TFrmPesquisaPadrao,FrmPesquisaPadrao);
  FrmPesquisaPadrao.ShowModal;
  FreeAndNil(FrmPesquisaPadrao);
end;

end.

